home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / clarion / cw15 / tpw15.z / VBXWRAP1.TPL < prev    next >
Text File  |  1995-07-06  |  3KB  |  86 lines
  1. #TEMPLATE(VBXWrappers,'Example VBX Wrapper')
  2. #HELP('CWHELP.HLP')
  3. #CONTROL(SaxTabsBrowseBox,'SaxTabs VBX with a Clarion Browse Box'),WINDOW,REQ(BrowseBox(Clarion)),HLP('~TPLControlSaxBrowse')
  4.         CONTROLS
  5.           CUSTOM('Clarion is Wonderful!'),AT(,,155,21),USE(?Custom1),CLASS('SAXTABS.VBX','SaxTab')
  6.         END
  7. #BOXED('SaxTabs for Browse Box')
  8.   #DISPLAY('To use this control template with the Clarion')
  9.   #DISPLAY('Browse Box, the Browse Box must be set up with')
  10.   #DISPLAY('a Range Limit, that is limited to a Range of')
  11.   #DISPLAY('Values.  The Range Low and Range High values must')
  12.   #DISPLAY('be variables')
  13.   #BUTTON('SaxTabs for Browse Box Settings'),MULTI(%TabSetting,%TabText & ' - ' & %TabLow & ' to ' & %TabHigh),AT(10,,180)
  14.     #PROMPT('Tab Text:', @S20),%TabText,REQ
  15.     #PROMPT('Low Value:',@S20),%TabLow,REQ
  16.     #PROMPT('High Value:',@S20),%TabHigh,REQ
  17.     #DISPLAY('')
  18.     #DISPLAY('The "Tab Text" must be an undelimited (no quotes)')
  19.     #DISPLAY('string.  You may not use a variable for the Tab Text')
  20.   #ENDBUTTON
  21.   #DISPLAY('')
  22.   #BOXED('License Warning')
  23.     #DISPLAY('The SAXTABS.VBX is provided only for running the')
  24.     #DISPLAY('Cookbook example program.  If you want to obtain a')
  25.     #DISPLAY('license to use SAXTABS.VBX in your own')
  26.     #DISPLAY('applications, please contact:')
  27.     #DISPLAY('')
  28.     #DISPLAY('    Sax Software')
  29.     #DISPLAY('    Phone:      800 645-3729')
  30.     #DISPLAY('    Fax:        503 344-2459')
  31.     #DISPLAY('    Compuserve: 75033,1723')
  32.     #DISPLAY('')
  33.   #ENDBOXED
  34. #ENDBOXED
  35. #ATSTART
  36.   #DECLARE(%SaxTabsControl)
  37.   #DECLARE(%TabStringText)
  38.   #FOR(%TabSetting)
  39.     #SET(%TabStringText,%TabStringText & CLIP(%TabText) & '|')
  40.   #ENDFOR
  41.   #SET(%TabStringText,SUB(%TabStringText,1,LEN(%TabStringText)-1))
  42.   #FOR(%Control),WHERE(%ControlInstance=%ActiveTemplateInstance)
  43.     #SET(%SaxTabsControl,%Control)
  44.   #ENDFOR
  45. #ENDAT
  46. #AT(%BeforeAccept)
  47. %SaxTabsControl{Prop:Text}='%TabStringText'
  48.   #FOR(%TabSetting)
  49.     #IF(SUB(%TabLow,1,1)='!')
  50.       #SET(%ValueConstruct,SUB(%TabLow,2,LEN(%TabLow)-1))
  51. %RangeLow = %ValueConstruct
  52.     #ELSE
  53. %RangeLow = '%TabLow'
  54.     #ENDIF
  55.     #IF(SUB(%TabHigh,1,1)='!')
  56.       #SET(%ValueConstruct,SUB(%TabHigh,2,LEN(%TabHigh)-1))
  57. %RangeHigh = %ValueConstruct
  58.     #ELSE
  59. %RangeHigh = '%TabHigh'
  60.     #ENDIF
  61.     #BREAK
  62.   #ENDFOR
  63. #ENDAT
  64. #AT(%ControlEventHandling,%SaxTabsControl,'VBXEvent')
  65. EXECUTE %SaxTabsControl{'ActiveTab'} + 1
  66.   #FOR(%TabSetting)
  67.   BEGIN
  68.     #IF(SUB(%TabLow,1,1)='!')
  69.       #SET(%ValueConstruct,SUB(%TabLow,2,LEN(%TabLow)-1))
  70.     %RangeLow = %ValueConstruct
  71.     #ELSE
  72.     %RangeLow = '%TabLow'
  73.     #ENDIF
  74.     #IF(SUB(%TabHigh,1,1)='!')
  75.       #SET(%ValueConstruct,SUB(%TabHigh,2,LEN(%TabHigh)-1))
  76.     %RangeHigh = %ValueConstruct
  77.     #ELSE
  78.     %RangeHigh = '%TabHigh'
  79.     #ENDIF
  80.   END
  81.   #ENDFOR
  82. END
  83. ForceRefresh = True
  84. DO RefreshWindow
  85. #ENDAT
  86.